home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 February / Ahoy_Magazine_86-02_1986_Double_L.d64 / menu c-64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  83 lines
  1. 3 l$="":restore
  2. 5 poke53280,6:poke53265,peek(53265)and239
  3. 10 fori=1to24:reada$:next:x=60:y=57:cl=1:sc=53281
  4. 15 fori=12288to12350:readsp:pokei,sp:next
  5. 17 fori=12352to12414:readsp:pokei,sp:next
  6. 19 fori=12416to12478:readsp:pokei,sp:next
  7. 21 fori=12480to12542:readsp:pokei,sp:next
  8. 23 fori=12544to12606:readsp:pokei,sp:next
  9. 25 fori=12608to12670:readsp:pokei,sp:next
  10. 27 fori=12672to12734:readsp:pokei,sp:next
  11. 29 fori=12736to12798:readsp:pokei,sp:next
  12. 35 m=.:v=53248:fori=2040to2047:m=m+1:pokei,191+m:next
  13. 40 fori=39to46:cl=cl+1:pokev+i,cl:next
  14. 50 fori=0to6step2:x=x+22:pokev+i,x:next:fori=1to13step2:pokev+i,y:next
  15. 60 pokev+8,195:pokev+10,215:pokev+12,240
  16. 70 pokev+16,128:pokev+14,5:pokev+15,y
  17. 100 print"[147]":poke sc,1:pokev+21,255:ta=10
  18. 110 poke53265,peek(53265)or16
  19. 145 printleft$(l$,5)"   * * *   d i r e c t o r y   * * *    ":restore
  20. 150 a=a+1:b=b+1:readpr$:ifa>9thenta=9
  21. 160 printleft$(l$,b+7)tab(ta)""a"-"pr$
  22. 165 if b=12 then 175
  23. 170 goto 150
  24. 175 if a>=24 then restore:a=0
  25. 180 print left$(l$,23)tab(7)"[156] dist. by double l software"
  26. 190 print left$(l$,24)tab(7)"[156] (c) ion international inc ":poke198,0:an$=""
  27. 200 print left$(l$,21)tab(8)"press f1[146] or choose no. ";
  28. 210 gettm$:iftm$=chr$(13)andan$=""then 210
  29. 211 iftm$=chr$(20)thenprint"[157]    ":goto190
  30. 215 iftm$="[133]"thengosub300:ta=10:b=.:goto150
  31. 218 iftm$=chr$(13)andan$<>" "then 225
  32. 220 an$=an$+tm$:printan$;"_";
  33. 221 t=peek(v+39):pokev+39,peek(v+40):pokev+40,peek(v+41):pokev+41,peek(v+42)
  34. 222 pokev+42,peek(v+43):pokev+43,peek(v+44):pokev+44,peek(v+45)
  35. 223 pokev+45,peek(v+46):pokev+46,t:ford=1to30:next
  36. 224 goto200
  37. 225 an=val(an$):ifan<1oran>24thenprint"[157]     ":goto190
  38. 226 an=val(an$):restore:for ch=1 to an:read pr$:next
  39. 230 pokev+21,0:print "[147]":poke 53280,0:poke 53281,0
  40. 235 printleft$(l$,15)tab(10)"[159]loading "pr$"[144]"
  41. 240 print "load";chr$(34);pr$;chr$(34);",8"
  42. 250 print "run":print "[145][145][145][145][145][145][145][145][145]"
  43. 260 poke 631,13:poke 632,13:poke 198,2:end
  44. 300 forli=6to19
  45. 310 printleft$(l$,li)"                                    ":next:return
  46. 500 data 64 bug rep,flankspeed,insta bug 64,vic bug rep,windows,ext backround
  47. 510 data slipshod,structured,elmac,making change,making change 2,making change 3
  48. 520 data simple comp.,arena boot,ternary,long line,alignment check,crabfight
  49. 530 data character dump,treasure wheel,head to head,measure dec.,movchr boot
  50. 540 data double l news
  51. 599 rem * f *
  52. 600 data 0,0,0,0,0,0,31,255,240,15,255,248,7,255,248,7,255,240,7,128,0,7,128,0
  53. 610 data 7,128,0,7,128,0,7,252,0,7,254,0,7,252,0,7,128,0,7,128,0,7,128,0
  54. 620 data 7,128,0,15,128,0,31,128,0,0,0,0,0,0,0
  55. 625 rem * e *
  56. 630 data 0,0,0,0,0,0,7,255,224,7,255,240,7,255,240,7,255,224,7,128,0,7,128,0
  57. 640 data 7,128,0,7,248,0,7,252,0,7,248,0,7,128,0,7,128,0,7,128,0,7,255,224
  58. 650 data 7,255,240,7,255,240,7,255,224,0,0,0,0,0,0
  59. 655 rem * b *
  60. 660 data 0,0,0,0,0,0,7,254,0,7,255,128,7,255,192,7,135,224,7,131,224,7,131,224
  61. 670 data 7,135,192,7,255,0,7,255,0,7,135,192,7,131,224,7,129,240,7,129,240
  62. 680 data 7,131,240,7,255,224,7,255,192,7,255,0,0,0,0,0,0,0
  63. 685 rem * . *
  64. 690 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  65. 700 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0
  66. 715 rem * 1 *
  67. 720 data 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62,0,0,62,0,0,62,0,0,62,0
  68. 730 data 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,1,255,192,1,255
  69. 740 data 192,0,0,0,0,0,0
  70. 745 rem * 9 *
  71. 750 data 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129
  72. 760 data 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128
  73. 770 data 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0
  74. 775 rem * 8 *
  75. 780 data 0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,240
  76. 790 data15,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240
  77. 800 data 31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0
  78. 805 rem * 6 *
  79. 810 data 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,192,248
  80. 820 data 15,128,0,15,128,0,15,191,128,15,255,224,15,255,240,15,227,248
  81. 830 data 15,193,248,15,193,248,15,255,240,7,255,240,3,255,224,0,255,128,0,0,0,0
  82. 832 data 0,0
  83.